/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_3 / issue06 / comp / comp_dec89 / bmawera

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1c f4 20 3e 20 | 24 2e 43 6f 6d 70 5f 44 |..... > |$.Comp_D|
|00000010| 65 63 38 39 2e 42 4d 61 | 77 65 72 41 0d 00 14 07 |ec89.BMa|werA....|
|00000020| d1 3d 30 0d 00 32 0c 6e | 6a 75 67 73 25 3d 34 0d |.=0..2.n|jugs%=4.|
|00000030| 00 3c 3c dc 20 31 31 2c | 33 32 2c 33 32 2c 37 32 |.<<. 11,|32,32,72|
|00000040| 3a 52 45 4d 20 76 6f 6c | 75 6d 65 73 20 6f 66 20 |:REM vol|umes of |
|00000050| 6a 75 67 73 3b 37 32 20 | 69 73 20 66 75 6c 6c 2c |jugs;72 |is full,|
|00000060| 20 72 65 73 74 20 65 6d | 70 74 79 0d 00 46 33 dc | rest em|pty..F3.|
|00000070| 20 30 2c 32 34 2c 32 34 | 2c 32 34 3a 52 45 4d 20 | 0,24,24|,24:REM |
|00000080| 66 69 6e 61 6c 76 6f 6c | 75 6d 65 73 20 6f 66 20 |finalvol|umes of |
|00000090| 6c 69 71 75 69 64 20 69 | 6e 20 6a 75 67 73 0d 00 |liquid i|n jugs..|
|000000a0| 50 47 6d 61 78 6e 6a 75 | 67 73 65 74 73 25 3d 35 |PGmaxnju|gsets%=5|
|000000b0| 30 30 3a f4 20 61 20 67 | 75 65 73 73 20 61 74 20 |00:. a g|uess at |
|000000c0| 74 68 65 20 6d 61 78 2e | 6e 6f 2e 20 6f 66 20 6a |the max.|no. of j|
|000000d0| 75 67 73 65 74 73 20 70 | 65 72 20 67 65 6e 65 72 |ugsets p|er gener|
|000000e0| 61 74 69 6f 6e 0d 00 5a | 48 6d 61 78 6c 65 76 65 |ation..Z|Hmaxleve|
|000000f0| 6c 73 25 3d 35 30 3a f4 | 20 61 67 75 65 73 73 20 |ls%=50:.| aguess |
|00000100| 61 74 20 74 68 65 20 6d | 61 78 2e 6e 6f 2e 20 6f |at the m|ax.no. o|
|00000110| 66 20 6c 65 76 65 6c 73 | 20 28 67 65 6e 65 72 61 |f levels| (genera|
|00000120| 74 69 6f 6e 73 29 20 6e | 65 65 64 65 64 0d 00 64 |tions) n|eeded..d|
|00000130| 1b de 20 6e 6a 75 67 73 | 65 74 73 25 28 6d 61 78 |.. njugs|ets%(max|
|00000140| 6c 65 76 65 6c 73 25 29 | 0d 00 6e 23 de 20 56 25 |levels%)|..n#. V%|
|00000150| 28 6e 6a 75 67 73 25 29 | 3a f4 20 76 76 6f 6c 75 |(njugs%)|:. vvolu|
|00000160| 6d 65 73 20 6f 66 20 6a | 75 67 73 0d 00 78 5d de |mes of j|ugs..x].|
|00000170| 20 6a 76 6f 6c 25 28 6d | 61 78 6c 65 76 65 6c 73 | jvol%(m|axlevels|
|00000180| 25 2c 6d 61 78 6e 6a 75 | 67 73 65 74 73 25 2c 6e |%,maxnju|gsets%,n|
|00000190| 6a 75 67 73 25 29 3a f4 | 20 76 6f 6c 75 6d 65 73 |jugs%):.| volumes|
|000001a0| 20 69 6e 20 74 68 65 20 | 6a 75 67 73 20 6f 66 20 | in the |jugs of |
|000001b0| 61 20 6a 75 67 73 65 74 | 20 69 6e 20 61 20 67 65 |a jugset| in a ge|
|000001c0| 6e 65 72 61 74 69 6f 6e | 0d 00 82 39 de 20 6e 65 |neration|...9. ne|
|000001d0| 65 64 76 6f 6c 25 28 6e | 6a 75 67 73 25 29 3a f4 |edvol%(n|jugs%):.|
|000001e0| 20 66 69 6e 61 6c 20 76 | 6f 6c 75 6d 65 73 20 6e | final v|olumes n|
|000001f0| 65 65 64 65 64 20 69 6e | 20 65 61 63 68 20 6a 75 |eeded in| each ju|
|00000200| 67 0d 00 8c 27 de 20 76 | 6f 6c 25 28 6e 6a 75 67 |g...'. v|ol%(njug|
|00000210| 73 25 29 3a f4 20 76 6f | 6c 73 20 77 68 69 6c 65 |s%):. vo|ls while|
|00000220| 20 70 6f 75 72 69 6e 67 | 0d 00 96 37 e3 20 64 61 | pouring|...7. da|
|00000230| 74 61 25 3d 31 20 b8 20 | 6e 6a 75 67 73 25 3a f3 |ta%=1 . |njugs%:.|
|00000240| 20 56 25 28 64 61 74 61 | 25 29 3a 6a 76 6f 6c 25 | V%(data|%):jvol%|
|00000250| 28 30 2c 31 2c 64 61 74 | 61 25 29 3d 30 3a ed 0d |(0,1,dat|a%)=0:..|
|00000260| 00 97 1b 6a 76 6f 6c 25 | 28 30 2c 31 2c 34 29 3d |...jvol%|(0,1,4)=|
|00000270| 56 25 28 6e 6a 75 67 73 | 25 29 0d 00 9b 09 f7 8d |V%(njugs|%)......|
|00000280| 44 46 40 0d 00 a0 2a e3 | 20 64 61 74 61 25 3d 31 |DF@...*.| data%=1|
|00000290| 20 b8 20 6e 6a 75 67 73 | 25 3a f3 20 6e 65 65 64 | . njugs|%:. need|
|000002a0| 76 6f 6c 25 28 64 61 74 | 61 25 29 3a ed 0d 00 aa |vol%(dat|a%):....|
|000002b0| 26 de 20 70 61 72 65 6e | 74 25 28 6d 61 78 6c 65 |&. paren|t%(maxle|
|000002c0| 76 65 6c 73 25 2c 6d 61 | 78 6e 6a 75 67 73 65 74 |vels%,ma|xnjugset|
|000002d0| 73 25 29 0d 00 b4 41 de | 20 6a 75 67 6e 75 6d 25 |s%)...A.| jugnum%|
|000002e0| 28 6e 6a 75 67 73 25 29 | 2c 6e 25 28 33 35 30 30 |(njugs%)|,n%(3500|
|000002f0| 29 2c 6c 65 66 74 25 28 | 33 35 30 30 29 2c 72 69 |),left%(|3500),ri|
|00000300| 67 68 74 25 28 33 35 30 | 30 29 3a f4 20 67 75 65 |ght%(350|0):. gue|
|00000310| 73 73 65 73 0d 00 b9 41 | e3 20 7a 25 3d 31 20 b8 |sses...A|. z%=1 .|
|00000320| 20 6e 6a 75 67 73 25 3a | 6a 75 67 6e 75 6d 25 28 | njugs%:|jugnum%(|
|00000330| 7a 25 29 3d 6a 76 6f 6c | 25 28 30 2c 31 2c 7a 25 |z%)=jvol|%(0,1,z%|
|00000340| 29 2a 28 31 30 30 5e 28 | 6e 6a 75 67 73 25 2d 7a |)*(100^(|njugs%-z|
|00000350| 25 29 29 3a ed 0d 00 ba | 15 7a 25 3d 31 3a 6a 75 |%)):....|.z%=1:ju|
|00000360| 67 73 65 74 6e 75 6d 25 | 3d 30 0d 00 bb 31 c8 95 |gsetnum%|=0...1..|
|00000370| 20 7a 25 3c 3d 6e 6a 75 | 67 73 25 3a 6a 75 67 73 | z%<=nju|gs%:jugs|
|00000380| 65 74 6e 75 6d 25 2b 3d | 6a 75 67 6e 75 6d 25 28 |etnum%+=|jugnum%(|
|00000390| 7a 25 29 3a 7a 25 2b 3d | 31 3a ce 0d 00 bc 14 6e |z%):z%+=|1:.....n|
|000003a0| 25 28 31 29 3d 6a 75 67 | 73 65 74 6e 75 6d 25 0d |%(1)=jug|setnum%.|
|000003b0| 00 be 12 6e 6a 75 67 73 | 65 74 73 25 28 30 29 3d |...njugs|ets%(0)=|
|000003c0| 31 0d 00 c8 0c 6c 65 76 | 65 6c 25 3d 30 0d 00 cd |1....lev|el%=0...|
|000003d0| 12 6a 75 67 73 65 74 63 | 6f 75 6e 74 25 3d 31 0d |.jugsetc|ount%=1.|
|000003e0| 00 d2 05 f5 0d 00 e6 27 | 20 20 20 20 e3 20 6a 75 |.......'|    . ju|
|000003f0| 67 73 65 74 25 3d 31 20 | b8 20 6e 6a 75 67 73 65 |gset%=1 |. njugse|
|00000400| 74 73 25 28 6c 65 76 65 | 6c 25 29 0d 00 f0 19 20 |ts%(leve|l%).... |
|00000410| 20 20 20 e3 20 6a 75 67 | 25 3d 31 20 b8 20 6e 6a |   . jug|%=1 . nj|
|00000420| 75 67 73 25 0d 00 fa 2d | 20 20 20 20 20 20 20 20 |ugs%...-|        |
|00000430| e7 20 6a 76 6f 6c 25 28 | 6c 65 76 65 6c 25 2c 6a |. jvol%(|level%,j|
|00000440| 75 67 73 65 74 25 2c 6a | 75 67 25 29 3c 3e 30 20 |ugset%,j|ug%)<>0 |
|00000450| 8c 0d 01 04 16 20 20 20 | 20 20 20 20 20 66 72 6f |.....   |     fro|
|00000460| 6d 25 3d 6a 75 67 25 0d | 01 0e 1c 20 20 20 20 20 |m%=jug%.|...     |
|00000470| 20 20 20 e3 20 74 6f 25 | 3d 31 20 b8 20 6e 6a 75 |   . to%|=1 . nju|
|00000480| 67 73 25 0d 01 18 42 20 | 20 20 20 20 20 20 20 20 |gs%...B |        |
|00000490| 20 20 20 e7 20 74 6f 25 | 3c 3e 66 72 6f 6d 25 20 |   . to%|<>from% |
|000004a0| 80 20 6a 76 6f 6c 25 28 | 6c 65 76 65 6c 25 2c 6a |. jvol%(|level%,j|
|000004b0| 75 67 73 65 74 25 2c 74 | 6f 25 29 3c 56 25 28 74 |ugset%,t|o%)<V%(t|
|000004c0| 6f 25 29 20 8c 0d 01 2c | 25 20 20 20 20 20 20 20 |o%) ...,|%       |
|000004d0| 20 20 20 20 20 20 20 20 | 20 20 f2 70 6f 75 72 28 |        |  .pour(|
|000004e0| 66 72 6f 6d 25 2c 74 6f | 25 29 0d 01 36 22 20 20 |from%,to|%)..6"  |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 f2 |        |       .|
|00000500| 6d 61 74 63 68 6a 75 67 | 73 65 74 73 0d 01 40 27 |matchjug|sets..@'|
|00000510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000520| 20 e7 20 6d 61 74 63 68 | 6a 75 67 73 65 74 73 3d | . match|jugsets=|
|00000530| a3 20 8c 0d 01 4a 23 20 | 20 20 20 20 20 20 20 20 |. ...J# |        |
|00000540| 20 20 20 20 20 20 20 20 | 20 20 20 20 f2 6e 65 77 |        |    .new|
|00000550| 6a 75 67 73 65 74 0d 01 | 5e 27 20 20 20 20 20 20 |jugset..|^'      |
|00000560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 f2 |        |       .|
|00000570| 6d 61 74 63 68 6a 75 67 | 6e 65 65 64 73 0d 01 68 |matchjug|needs..h|
|00000580| 42 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |B       |        |
|00000590| 20 20 20 20 20 20 e7 20 | 6d 61 74 63 68 6a 75 67 |      . |matchjug|
|000005a0| 6e 65 65 64 73 3d b9 20 | 8c 20 74 69 6d 65 3d 91 |needs=. |. time=.|
|000005b0| 2f 36 30 30 30 3a f2 65 | 75 72 65 6b 61 3a e0 0d |/6000:.e|ureka:..|
|000005c0| 01 72 16 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.r.     |        |
|000005d0| 20 20 20 20 cd 0d 01 77 | 12 20 20 20 20 20 20 20 |    ...w|.       |
|000005e0| 20 20 20 20 20 20 cd 0d | 01 7c 11 20 20 20 20 20 |      ..|.|.     |
|000005f0| 20 20 20 ed 20 74 6f 25 | 0d 01 86 0d 20 20 20 20 |   . to%|....    |
|00000600| 20 20 20 20 cd 0d 01 90 | 0e 20 20 20 20 ed 20 6a |    ....|.    . j|
|00000610| 75 67 25 0d 01 9a 11 20 | 20 20 20 ed 20 6a 75 67 |ug%.... |   . jug|
|00000620| 73 65 74 25 0d 01 a4 20 | 20 20 20 20 6c 65 76 65 |set%... |    leve|
|00000630| 6c 25 2b 3d 31 3a f1 6c | 65 76 65 6c 25 2c 91 2f |l%+=1:.l|evel%,./|
|00000640| 36 30 30 30 0d 01 ae 07 | fd 20 a3 0d 01 f4 05 e0 |6000....|. ......|
|00000650| 0d 03 e8 15 dd f2 70 6f | 75 72 28 66 72 6f 6d 25 |......po|ur(from%|
|00000660| 2c 74 6f 25 29 0d 03 fc | 2f 20 20 20 20 76 6f 6c |,to%)...|/    vol|
|00000670| 25 28 66 72 6f 6d 25 29 | 3d 6a 76 6f 6c 25 28 6c |%(from%)|=jvol%(l|
|00000680| 65 76 65 6c 25 2c 6a 75 | 67 73 65 74 25 2c 66 72 |evel%,ju|gset%,fr|
|00000690| 6f 6d 25 29 0d 04 06 2b | 20 20 20 20 76 6f 6c 25 |om%)...+|    vol%|
|000006a0| 28 74 6f 25 29 3d 6a 76 | 6f 6c 25 28 6c 65 76 65 |(to%)=jv|ol%(leve|
|000006b0| 6c 25 2c 6a 75 67 73 65 | 74 25 2c 74 6f 25 29 0d |l%,jugse|t%,to%).|
|000006c0| 04 10 28 e7 20 76 6f 6c | 25 28 66 72 6f 6d 25 29 |..(. vol|%(from%)|
|000006d0| 3c 3d 28 56 25 28 74 6f | 25 29 2d 76 6f 6c 25 28 |<=(V%(to|%)-vol%(|
|000006e0| 74 6f 25 29 29 20 8c 0d | 04 1a 2c 20 20 20 20 76 |to%)) ..|..,    v|
|000006f0| 6f 6c 25 28 74 6f 25 29 | 2b 3d 76 6f 6c 25 28 66 |ol%(to%)|+=vol%(f|
|00000700| 72 6f 6d 25 29 3a 76 6f | 6c 25 28 66 72 6f 6d 25 |rom%):vo|l%(from%|
|00000710| 29 3d 30 0d 04 24 37 cc | 76 6f 6c 25 28 66 72 6f |)=0..$7.|vol%(fro|
|00000720| 6d 25 29 2d 3d 28 56 25 | 28 74 6f 25 29 2d 76 6f |m%)-=(V%|(to%)-vo|
|00000730| 6c 25 28 74 6f 25 29 29 | 3a 76 6f 6c 25 28 74 6f |l%(to%))|:vol%(to|
|00000740| 25 29 3d 56 25 28 74 6f | 25 29 0d 04 2e 05 cd 0d |%)=V%(to|%)......|
|00000750| 04 4c 13 6a 75 67 73 65 | 74 63 6f 75 6e 74 25 2b |.L.jugse|tcount%+|
|00000760| 3d 31 0d 04 56 05 e1 0d | 04 b0 12 dd f2 6d 61 74 |=1..V...|.....mat|
|00000770| 63 68 6a 75 67 73 65 74 | 73 0d 04 ba 1f 6d 61 74 |chjugset|s....mat|
|00000780| 63 68 6a 75 67 73 65 74 | 73 3d a3 3a 6a 75 67 73 |chjugset|s=.:jugs|
|00000790| 65 74 6e 75 6d 25 3d 30 | 0d 04 ce 13 e3 20 7a 25 |etnum%=0|..... z%|
|000007a0| 3d 31 20 b8 20 6e 6a 75 | 67 73 25 0d 04 d8 0f 20 |=1 . nju|gs%.... |
|000007b0| 20 20 20 c8 8e 20 7a 25 | 20 ca 0d 04 e2 28 20 20 |   .. z%| ....(  |
|000007c0| 20 20 20 20 20 20 c9 20 | 66 72 6f 6d 25 3a 76 6f |      . |from%:vo|
|000007d0| 6c 25 28 7a 25 29 3d 76 | 6f 6c 25 28 66 72 6f 6d |l%(z%)=v|ol%(from|
|000007e0| 25 29 0d 04 ec 24 20 20 | 20 20 20 20 20 20 c9 20 |%)...$  |      . |
|000007f0| 74 6f 25 3a 76 6f 6c 25 | 28 7a 25 29 3d 76 6f 6c |to%:vol%|(z%)=vol|
|00000800| 25 28 74 6f 25 29 0d 04 | f6 2f 20 20 20 20 20 20 |%(to%)..|./      |
|00000810| 20 20 7f 20 76 6f 6c 25 | 28 7a 25 29 3d 6a 76 6f |  . vol%|(z%)=jvo|
|00000820| 6c 25 28 6c 65 76 65 6c | 25 2c 6a 75 67 73 65 74 |l%(level|%,jugset|
|00000830| 25 2c 7a 25 29 0d 05 00 | 09 20 20 20 20 cb 0d 05 |%,z%)...|.    ...|
|00000840| 03 2a 6a 75 67 73 65 74 | 6e 75 6d 25 2b 3d 76 6f |.*jugset|num%+=vo|
|00000850| 6c 25 28 7a 25 29 2a 28 | 31 30 30 5e 28 6e 6a 75 |l%(z%)*(|100^(nju|
|00000860| 67 73 25 2d 7a 25 29 29 | 0d 05 0a 08 ed 20 7a 25 |gs%-z%))|..... z%|
|00000870| 0d 05 6e 25 78 25 3d 6a | 75 67 73 65 74 63 6f 75 |..n%x%=j|ugsetcou|
|00000880| 6e 74 25 3a 6e 25 28 78 | 25 29 3d 6a 75 67 73 65 |nt%:n%(x|%)=jugse|
|00000890| 74 6e 75 6d 25 0d 05 78 | 19 f2 6a 75 67 73 65 74 |tnum%..x|..jugset|
|000008a0| 74 72 65 65 73 65 61 72 | 63 68 28 78 25 29 0d 05 |treesear|ch(x%)..|
|000008b0| 82 05 e1 0d 05 dc 0f dd | f2 6e 65 77 6a 75 67 73 |........|.newjugs|
|000008c0| 65 74 0d 05 e1 1a 6e 6a | 75 67 73 65 74 73 25 28 |et....nj|ugsets%(|
|000008d0| 6c 65 76 65 6c 25 2b 31 | 29 2b 3d 31 0d 05 e6 16 |level%+1|)+=1....|
|000008e0| 6e 65 77 6c 65 76 65 6c | 25 3d 6c 65 76 65 6c 25 |newlevel|%=level%|
|000008f0| 2b 31 0d 05 f0 22 6e 65 | 77 6a 75 67 73 65 74 25 |+1..."ne|wjugset%|
|00000900| 3d 6e 6a 75 67 73 65 74 | 73 25 28 6c 65 76 65 6c |=njugset|s%(level|
|00000910| 25 2b 31 29 0d 06 04 13 | e3 20 7a 25 3d 31 20 b8 |%+1)....|. z%=1 .|
|00000920| 20 6e 6a 75 67 73 25 0d | 06 0e 0f 20 20 20 20 c8 | njugs%.|...    .|
|00000930| 8e 20 7a 25 20 ca 0d 06 | 18 3e 20 20 20 20 20 20 |. z% ...|.>      |
|00000940| 20 20 c9 20 66 72 6f 6d | 25 3a 6a 76 6f 6c 25 28 |  . from|%:jvol%(|
|00000950| 6e 65 77 6c 65 76 65 6c | 25 2c 6e 65 77 6a 75 67 |newlevel|%,newjug|
|00000960| 73 65 74 25 2c 7a 25 29 | 3d 76 6f 6c 25 28 66 72 |set%,z%)|=vol%(fr|
|00000970| 6f 6d 25 29 0d 06 22 3a | 20 20 20 20 20 20 20 20 |om%)..":|        |
|00000980| c9 20 74 6f 25 3a 6a 76 | 6f 6c 25 28 6e 65 77 6c |. to%:jv|ol%(newl|
|00000990| 65 76 65 6c 25 2c 6e 65 | 77 6a 75 67 73 65 74 25 |evel%,ne|wjugset%|
|000009a0| 2c 7a 25 29 3d 76 6f 6c | 25 28 74 6f 25 29 0d 06 |,z%)=vol|%(to%)..|
|000009b0| 2c 45 20 20 20 20 20 20 | 20 20 7f 20 6a 76 6f 6c |,E      |  . jvol|
|000009c0| 25 28 6e 65 77 6c 65 76 | 65 6c 25 2c 6e 65 77 6a |%(newlev|el%,newj|
|000009d0| 75 67 73 65 74 25 2c 7a | 25 29 3d 6a 76 6f 6c 25 |ugset%,z|%)=jvol%|
|000009e0| 28 6c 65 76 65 6c 25 2c | 6a 75 67 73 65 74 25 2c |(level%,|jugset%,|
|000009f0| 7a 25 29 0d 06 36 09 20 | 20 20 20 cb 0d 06 40 08 |z%)..6. |   ...@.|
|00000a00| ed 20 7a 25 0d 06 54 5f | 70 61 72 65 6e 74 25 28 |. z%..T_|parent%(|
|00000a10| 6e 65 77 6c 65 76 65 6c | 25 2c 6e 65 77 6a 75 67 |newlevel|%,newjug|
|00000a20| 73 65 74 25 29 3d 6a 75 | 67 73 65 74 25 3a f4 20 |set%)=ju|gset%:. |
|00000a30| 6a 75 67 73 65 74 25 20 | 69 73 20 73 74 69 6c 6c |jugset% |is still|
|00000a40| 20 69 6e 20 6c 65 76 65 | 6c 25 2c 20 74 68 65 20 | in leve|l%, the |
|00000a50| 70 72 65 76 69 6f 75 73 | 20 67 65 6e 65 72 61 74 |previous| generat|
|00000a60| 69 6f 6e 0d 06 72 05 e1 | 0d 06 a4 13 dd f2 6d 61 |ion..r..|......ma|
|00000a70| 74 63 68 6a 75 67 6e 65 | 65 64 73 0d 06 ae 13 6d |tchjugne|eds....m|
|00000a80| 61 74 63 68 6a 75 67 6e | 65 65 64 73 3d b9 0d 06 |atchjugn|eeds=...|
|00000a90| b8 08 6a 25 3d 31 0d 06 | c2 11 c8 95 20 6a 25 3c |..j%=1..|.... j%<|
|00000aa0| 3d 6e 6a 75 67 73 25 0d | 06 cc 4a 20 20 20 20 e7 |=njugs%.|..J    .|
|00000ab0| 20 6a 76 6f 6c 25 28 6e | 65 77 6c 65 76 65 6c 25 | jvol%(n|ewlevel%|
|00000ac0| 2c 6e 65 77 6a 75 67 73 | 65 74 25 2c 6a 25 29 3c |,newjugs|et%,j%)<|
|00000ad0| 3e 6e 65 65 64 76 6f 6c | 25 28 6a 25 29 20 8c 20 |>needvol|%(j%) . |
|00000ae0| 6d 61 74 63 68 6a 75 67 | 6e 65 65 64 73 3d a3 3a |matchjug|needs=.:|
|00000af0| e1 0d 06 d6 0d 20 20 20 | 20 6a 25 2b 3d 31 0d 06 |.....   | j%+=1..|
|00000b00| e0 05 ce 0d 06 fe 05 e1 | 0d 07 d0 0c dd f2 65 75 |........|......eu|
|00000b10| 72 65 6b 61 0d 07 d5 13 | f1 20 6c 65 76 65 6c 25 |reka....|. level%|
|00000b20| 2b 31 2c 74 69 6d 65 0d | 07 da 20 f1 27 27 22 50 |+1,time.|.. .''"P|
|00000b30| 52 45 53 53 20 53 50 41 | 43 45 20 54 4f 20 43 4f |RESS SPA|CE TO CO|
|00000b40| 4e 54 49 4e 55 45 22 0d | 07 df 22 f5 3a e7 20 ac |NTINUE".|..".:. .|
|00000b50| 20 a6 28 2d 39 39 29 20 | 8c 20 ef 37 3a 58 3d a6 | .(-99) |. .7:X=.|
|00000b60| 28 31 30 30 29 3a fd 20 | a3 0d 07 e4 54 f1 27 27 |(100):. |....T.''|
|00000b70| 22 54 68 65 20 22 3b 6e | 65 77 6a 75 67 73 65 74 |"The ";n|ewjugset|
|00000b80| 25 3b 22 74 68 20 6d 65 | 6d 62 65 72 20 6f 66 20 |%;"th me|mber of |
|00000b90| 74 68 65 20 22 3b 6e 65 | 77 6c 65 76 65 6c 25 3b |the ";ne|wlevel%;|
|00000ba0| 22 74 68 20 67 65 6e 65 | 72 61 74 69 6f 6e 20 69 |"th gene|ration i|
|00000bb0| 73 20 54 52 55 45 20 42 | 4c 55 45 21 22 0d 07 ee |s TRUE B|LUE!"...|
|00000bc0| 44 f1 27 27 22 48 69 73 | 20 50 45 44 49 47 52 45 |D.''"His| PEDIGRE|
|00000bd0| 45 20 69 73 20 69 6d 70 | 65 63 63 61 62 6c 65 3a |E is imp|eccable:|
|00000be0| 20 68 65 20 77 61 73 20 | 62 72 65 64 20 69 6e 20 | he was |bred in |
|00000bf0| 22 3b 74 69 6d 65 3b 22 | 6d 69 6e 75 74 65 73 2e |";time;"|minutes.|
|00000c00| 22 0d 07 f8 42 de 20 70 | 6a 73 65 74 25 28 6e 65 |"...B. p|jset%(ne|
|00000c10| 77 6c 65 76 65 6c 25 29 | 3a f4 20 74 68 65 20 70 |wlevel%)|:. the p|
|00000c20| 61 72 65 6e 74 20 6a 75 | 67 73 65 74 73 20 6f 66 |arent ju|gsets of|
|00000c30| 20 74 68 65 20 6c 69 6e | 65 20 54 52 55 45 20 42 | the lin|e TRUE B|
|00000c40| 4c 55 45 0d 08 0c 10 6c | 25 3d 6e 65 77 6c 65 76 |LUE....l|%=newlev|
|00000c50| 65 6c 25 0d 08 16 11 6a | 25 3d 6e 65 77 6a 75 67 |el%....j|%=newjug|
|00000c60| 73 65 74 25 0d 08 20 05 | f5 0d 08 2a 21 20 20 20 |set%.. .|...*!   |
|00000c70| 20 70 6a 73 65 74 25 28 | 6c 25 29 3d 70 61 72 65 | pjset%(|l%)=pare|
|00000c80| 6e 74 25 28 6c 25 2c 6a | 25 29 0d 08 34 15 20 20 |nt%(l%,j|%)..4.  |
|00000c90| 20 20 6a 25 3d 70 6a 73 | 65 74 25 28 6c 25 29 0d |  j%=pjs|et%(l%).|
|00000ca0| 08 3e 0d 20 20 20 20 6c | 25 2d 3d 31 0d 08 48 0a |.>.    l|%-=1..H.|
|00000cb0| fd 20 6c 25 3d 30 0d 08 | 5c 46 f5 3a e8 27 27 22 |. l%=0..|\F.:.''"|
|00000cc0| 44 4f 20 59 4f 55 20 57 | 41 4e 54 20 54 48 45 20 |DO YOU W|ANT THE |
|00000cd0| 50 52 49 4e 54 45 52 22 | 3b 72 24 3a fd 20 a9 28 |PRINTER"|;r$:. .(|
|00000ce0| 72 24 29 3d 31 3a e7 20 | 72 24 3d 22 59 22 20 84 |r$)=1:. |r$="Y" .|
|00000cf0| 20 72 24 3d 22 79 22 20 | 8c 20 ef 32 0d 08 66 18 | r$="y" |. .2..f.|
|00000d00| f1 27 27 8a 30 29 3b 22 | 47 45 4e 45 52 41 54 49 |.''.0);"|GENERATI|
|00000d10| 4f 4e 22 3b 0d 08 70 2d | e3 20 6a 25 3d 31 20 b8 |ON";..p-|. j%=1 .|
|00000d20| 20 6e 6a 75 67 73 25 3a | f1 8a 31 33 2b 36 2a 6a | njugs%:|..13+6*j|
|00000d30| 25 29 3b 22 4a 55 47 20 | 22 6a 25 3b 3a ed 20 6a |%);"JUG |"j%;:. j|
|00000d40| 25 0d 08 7a 08 6c 25 3d | 30 0d 08 7f 05 f5 0d 08 |%..z.l%=|0.......|
|00000d50| 84 0d f1 27 8a 35 29 3b | 6c 25 3b 0d 08 8e 3e e3 |...'.5);|l%;...>.|
|00000d60| 20 6a 25 3d 31 20 b8 20 | 6e 6a 75 67 73 25 3a f1 | j%=1 . |njugs%:.|
|00000d70| 8a 31 34 2b 36 2a 6a 25 | 29 3b 6a 76 6f 6c 25 28 |.14+6*j%|);jvol%(|
|00000d80| 6c 25 2c 70 6a 73 65 74 | 25 28 6c 25 2b 31 29 2c |l%,pjset|%(l%+1),|
|00000d90| 6a 25 29 3b 3a ed 20 6a | 25 0d 08 98 0c f1 27 3a |j%);:. j|%.....':|
|00000da0| 6c 25 2b 3d 31 0d 08 a2 | 12 fd 20 6c 25 3d 6e 65 |l%+=1...|.. l%=ne|
|00000db0| 77 6c 65 76 65 6c 25 0d | 08 ac 14 f1 27 8a 35 29 |wlevel%.|....'.5)|
|00000dc0| 3b 6e 65 77 6c 65 76 65 | 6c 25 3b 0d 08 b6 40 e3 |;newleve|l%;...@.|
|00000dd0| 20 6a 25 3d 31 20 b8 20 | 6e 6a 75 67 73 25 3a f1 | j%=1 . |njugs%:.|
|00000de0| 8a 31 34 2b 36 2a 6a 25 | 29 3b 6a 76 6f 6c 25 28 |.14+6*j%|);jvol%(|
|00000df0| 6e 65 77 6c 65 76 65 6c | 25 2c 6e 65 77 6a 75 67 |newlevel|%,newjug|
|00000e00| 73 65 74 25 2c 6a 25 29 | 3b 3a ed 0d 08 bb 06 f1 |set%,j%)|;:......|
|00000e10| 27 0d 08 c0 06 ef 33 0d | 08 ca 05 e1 0d 09 c4 1a |'.....3.|........|
|00000e20| dd f2 6a 75 67 73 65 74 | 74 72 65 65 73 65 61 72 |..jugset|treesear|
|00000e30| 63 68 28 78 25 29 0d 09 | d8 0d 6e 65 77 74 72 79 |ch(x%)..|..newtry|
|00000e40| 25 3d 31 0d 09 e2 05 f5 | 0d 09 ec 18 20 20 20 20 |%=1.....|....    |
|00000e50| 6c 65 66 74 25 3d a3 3a | 72 69 67 68 74 25 3d a3 |left%=.:|right%=.|
|00000e60| 0d 09 f6 10 74 72 79 25 | 3d 6e 65 77 74 72 79 25 |....try%|=newtry%|
|00000e70| 0d 0a 00 38 e7 20 6e 25 | 28 78 25 29 3d 6e 25 28 |...8. n%|(x%)=n%(|
|00000e80| 74 72 79 25 29 20 8c 20 | 6d 61 74 63 68 6a 75 67 |try%) . |matchjug|
|00000e90| 73 65 74 73 3d b9 3a 6a | 75 67 73 65 74 63 6f 75 |sets=.:j|ugsetcou|
|00000ea0| 6e 74 25 2d 3d 31 3a e1 | 0d 0a 0a 35 e7 20 6e 25 |nt%-=1:.|...5. n%|
|00000eb0| 28 78 25 29 3e 6e 25 28 | 74 72 79 25 29 20 8c 20 |(x%)>n%(|try%) . |
|00000ec0| 72 69 67 68 74 25 3d b9 | 3a 6e 65 77 74 72 79 25 |right%=.|:newtry%|
|00000ed0| 3d 72 69 67 68 74 25 28 | 74 72 79 25 29 0d 0a 14 |=right%(|try%)...|
|00000ee0| 33 e7 20 6e 25 28 78 25 | 29 3c 6e 25 28 74 72 79 |3. n%(x%|)<n%(try|
|00000ef0| 25 29 20 8c 20 6c 65 66 | 74 25 3d b9 3a 6e 65 77 |%) . lef|t%=.:new|
|00000f00| 74 72 79 25 3d 6c 65 66 | 74 25 28 74 72 79 25 29 |try%=lef|t%(try%)|
|00000f10| 0d 0a 1e 0f fd 20 6e 65 | 77 74 72 79 25 3d 30 0d |..... ne|wtry%=0.|
|00000f20| 0a 28 20 e7 20 72 69 67 | 68 74 25 3d b9 20 8c 20 |.( . rig|ht%=. . |
|00000f30| 72 69 67 68 74 25 28 74 | 72 79 25 29 3d 78 25 0d |right%(t|ry%)=x%.|
|00000f40| 0a 32 1e e7 20 6c 65 66 | 74 25 3d b9 20 8c 20 6c |.2.. lef|t%=. . l|
|00000f50| 65 66 74 25 28 74 72 79 | 25 29 3d 78 25 0d 0a 5a |eft%(try|%)=x%..Z|
|00000f60| 05 e1 0d ff             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+